﻿Imports System.IO
Module Module1
  Sub Main()

    Dim mFileStream As FileStream
    Dim mStreamReader As StreamReader
    mFileStream = New  _
        FileStream(My.Computer.FileSystem.CurrentDirectory & _
          "\TextFile1.txt", _
          FileMode.Open, FileAccess.Read, _
          FileShare.Read)
    mStreamReader = New StreamReader(mFileStream)
    Console.WriteLine(mStreamReader.ReadToEnd)
    Console.ReadLine()

  End Sub
End Module
